home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / I-J / If Monks had Macs....cpt / If Monks had Macs... / Meat & Conversation / background_4544.txt < prev    next >
Text File  |  1992-02-09  |  11KB  |  496 lines
  1. -- background: 4544 from stack: in
  2. -- bmap block id: 4657
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Location
  6. ----- HyperTalk script -----
  7. on idle
  8.   repeat with tgt = 1 to number of cd btns
  9.     if short name of cd btn tgt is "XXX" then
  10.       BlinkMe tgt
  11.       exit repeat
  12.     end if
  13.   end repeat
  14.   pass idle
  15. end idle
  16.  
  17. on GetDirGoDir
  18.   cleanScreen
  19.   get bg fld (short name of target)
  20.   put empty into bg fld "Message"
  21.   if it is empty then
  22.     put "You can't go that direction." into bg fld "Message"
  23.     play "Harpsichord" "F3s"
  24.     wait until mouse() is up
  25.     put empty into bg fld "Message"
  26.     click at -1,-1
  27.     exit GetDirGoDir
  28.   else
  29.     if it is "Quit" then
  30.       answer "That was a fatal move. The game is over. Would you like to begin again?" with "Yes" or "No"
  31.       if it is "Yes" then
  32.         reset
  33.         openStack
  34.         about
  35.       end if
  36.       if it is "No" then
  37.         answer "Go to the library, the Home card, or Quit?" with "Library" or "Home" or "Quit"
  38.         visual wipe right
  39.         go cd 1
  40.         if it is "Library" then
  41.           visual barn door close to black
  42.           visual dissolve to black
  43.           visual zoom in
  44.           go stack "Library"
  45.           if result() is empty then
  46.           else
  47.             answer "Can't find a stack of that name." &return &"Opening Home card."
  48.             put "Home" into it
  49.           end if
  50.         end if
  51.         if it is "Home" then
  52.           visual dissolve to grey
  53.           visual dissolve to gray
  54.           visual zoom in
  55.           go home
  56.         end if
  57.         if it is "Quit" then
  58.           doMenu "Quit HyperCard"
  59.         end if
  60.       end if
  61.       set hilite of target to false
  62.       exit GetDirGoDir
  63.     end if
  64.     push cd
  65.     lock screen
  66.     go cd it
  67.     if short name of this bg is "Location" then
  68.       unlock screen with venetian blinds
  69.     else
  70.       unlock screen with scroll left slow
  71.     end if
  72.   end if
  73. end GetDirGoDir
  74.  
  75.  
  76. -- part 68 (button)
  77. -- low flags: 00
  78. -- high flags: 0000
  79. -- rect: left=115 top=183 right=220 bottom=149
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 9761 / 9761
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: 
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   cleanScreen
  91.   if (cd fld "locked" of cd 1) is "locked" then
  92.   else
  93.     set visible of bg fld 2 to not visible of bg fld 2
  94.     repeat with i = 3 to 10
  95.       set visible of bg fld i to visible of bg fld 2
  96.     end repeat
  97.   end if
  98. end mouseUp
  99.  
  100.  
  101. -- part 1 (button)
  102. -- low flags: 00
  103. -- high flags: 2000
  104. -- rect: left=115 top=162 right=184 bottom=149
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 29019 / 29019
  107. -- text alignment: 1
  108. -- font id: 0
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: north
  113. ----- HyperTalk script -----
  114. on mouseDown
  115.   GetDirGoDir
  116. end mouseDown
  117.  
  118.  
  119. -- part 2 (button)
  120. -- low flags: 00
  121. -- high flags: 2000
  122. -- rect: left=93 top=183 right=220 bottom=116
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 1014 / 1014
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: west
  131. ----- HyperTalk script -----
  132. on mouseDown
  133.   GetDirGoDir
  134. end mouseDown
  135.  
  136.  
  137. -- part 3 (button)
  138. -- low flags: 00
  139. -- high flags: 2000
  140. -- rect: left=148 top=183 right=220 bottom=170
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 1013 / 1013
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: east
  149. ----- HyperTalk script -----
  150. on mouseDown
  151.   GetDirGoDir
  152. end mouseDown
  153.  
  154.  
  155. -- part 4 (button)
  156. -- low flags: 00
  157. -- high flags: 2000
  158. -- rect: left=115 top=219 right=240 bottom=149
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 2730 / 2730
  161. -- text alignment: 1
  162. -- font id: 0
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: south
  167. ----- HyperTalk script -----
  168. on mouseDown
  169.   GetDirGoDir
  170. end mouseDown
  171.  
  172.  
  173. -- part 8 (button)
  174. -- low flags: 00
  175. -- high flags: 2000
  176. -- rect: left=60 top=167 right=202 bottom=92
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 1
  180. -- font id: 5
  181. -- text size: 14
  182. -- style flags: 0
  183. -- line height: 18
  184. -- part name: Up
  185. ----- HyperTalk script -----
  186. on mouseDown
  187.   GetDirGoDir
  188. end mouseDown
  189.  
  190.  
  191. -- part 9 (button)
  192. -- low flags: 00
  193. -- high flags: 2000
  194. -- rect: left=60 top=201 right=237 bottom=92
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 1
  198. -- font id: 5
  199. -- text size: 14
  200. -- style flags: 0
  201. -- line height: 18
  202. -- part name: Down
  203. ----- HyperTalk script -----
  204. on mouseDown
  205.   GetDirGoDir
  206. end mouseDown
  207.  
  208.  
  209. -- part 46 (field)
  210. -- low flags: 01
  211. -- high flags: 0000
  212. -- rect: left=262 top=28 right=323 bottom=483
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 0 / 0
  215. -- text alignment: 0
  216. -- font id: 9
  217. -- text size: 10
  218. -- style flags: 0
  219. -- line height: 12
  220. -- part name: Description
  221.  
  222.  
  223. -- part 80 (button)
  224. -- low flags: 00
  225. -- high flags: A004
  226. -- rect: left=22 top=124 right=142 bottom=61
  227. -- title width / last selected line: 0
  228. -- icon id / first selected line: 0 / 0
  229. -- text alignment: 1
  230. -- font id: 9
  231. -- text size: 12
  232. -- style flags: 256
  233. -- line height: 16
  234. -- part name: Wait
  235. ----- HyperTalk script -----
  236. on mouseUp
  237.   global NoiseMaker
  238.   put "Bosch2" into noiseMaker
  239.   waitSilliness
  240. end mouseUp
  241.  
  242.  
  243. -- part 47 (field)
  244. -- low flags: 80
  245. -- high flags: 0002
  246. -- rect: left=329 top=148 right=162 bottom=418
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 0 / 0
  249. -- text alignment: 0
  250. -- font id: 3
  251. -- text size: 9
  252. -- style flags: 0
  253. -- line height: 12
  254. -- part name: North
  255.  
  256.  
  257. -- part 89 (button)
  258. -- low flags: 00
  259. -- high flags: A004
  260. -- rect: left=64 top=124 right=142 bottom=129
  261. -- title width / last selected line: 0
  262. -- icon id / first selected line: 0 / 0
  263. -- text alignment: 1
  264. -- font id: 9
  265. -- text size: 12
  266. -- style flags: 256
  267. -- line height: 16
  268. -- part name: Inventory
  269. ----- HyperTalk script -----
  270. on mouseUp
  271.   cleanScreen
  272.   push cd
  273.   lock screen
  274.   put quote &"Inventory" & quote into bg fld "Place" of cd "ActionCardx"
  275.   go cd "ActionCardx"
  276.   ShowInv
  277.   set cursor to 3
  278.   lock screen
  279.   hide cd fld "Messages" of cd "ActionCardx"
  280.   pop cd
  281.   unlock screen with dissolve
  282. end mouseUp
  283.  
  284.  
  285. -- part 65 (button)
  286. -- low flags: 00
  287. -- high flags: A004
  288. -- rect: left=132 top=124 right=142 bottom=171
  289. -- title width / last selected line: 0
  290. -- icon id / first selected line: 0 / 0
  291. -- text alignment: 1
  292. -- font id: 9
  293. -- text size: 12
  294. -- style flags: 256
  295. -- line height: 16
  296. -- part name: Act
  297. ----- HyperTalk script -----
  298. on mouseUp
  299.   global CardWord,CardList,InvList
  300.   cleanScreen
  301.   push cd
  302.   if bg fld "CardWord" is empty  then
  303.     play "Harpsichord" "Et Eb Eq"
  304.     put "There's nothing to do here." into bg fld "Message"
  305.     wait until mouse() is down
  306.     put empty into bg fld "Message"
  307.     click at mouseLoc()
  308.   else
  309.     set cursor to 3
  310.     put bg fld "CardWord" into CardWord
  311.     put bg fld "Items" into CardList
  312.     put quote & short name of this cd "e into bg fld "Place" of cd "ActionCardx"
  313.     visual dissolve very fast
  314.     go cd "ActionCardx"
  315.   end if
  316. end mouseUp
  317.  
  318.  
  319. -- part 49 (field)
  320. -- low flags: 80
  321. -- high flags: 0002
  322. -- rect: left=394 top=160 right=174 bottom=483
  323. -- title width / last selected line: 0
  324. -- icon id / first selected line: 0 / 0
  325. -- text alignment: 0
  326. -- font id: 3
  327. -- text size: 9
  328. -- style flags: 0
  329. -- line height: 12
  330. -- part name: East
  331.  
  332.  
  333. -- part 48 (field)
  334. -- low flags: 81
  335. -- high flags: 0002
  336. -- rect: left=328 top=171 right=185 bottom=417
  337. -- title width / last selected line: 0
  338. -- icon id / first selected line: 0 / 0
  339. -- text alignment: 0
  340. -- font id: 3
  341. -- text size: 9
  342. -- style flags: 0
  343. -- line height: 12
  344. -- part name: South
  345.  
  346.  
  347. -- part 50 (field)
  348. -- low flags: 80
  349. -- high flags: 0002
  350. -- rect: left=262 top=160 right=174 bottom=351
  351. -- title width / last selected line: 0
  352. -- icon id / first selected line: 0 / 0
  353. -- text alignment: 0
  354. -- font id: 3
  355. -- text size: 9
  356. -- style flags: 0
  357. -- line height: 12
  358. -- part name: West
  359.  
  360.  
  361. -- part 63 (field)
  362. -- low flags: 80
  363. -- high flags: 0002
  364. -- rect: left=329 top=136 right=150 bottom=418
  365. -- title width / last selected line: 0
  366. -- icon id / first selected line: 0 / 0
  367. -- text alignment: 0
  368. -- font id: 3
  369. -- text size: 9
  370. -- style flags: 0
  371. -- line height: 12
  372. -- part name: Up
  373.  
  374.  
  375. -- part 64 (field)
  376. -- low flags: 80
  377. -- high flags: 0002
  378. -- rect: left=328 top=184 right=198 bottom=417
  379. -- title width / last selected line: 0
  380. -- icon id / first selected line: 0 / 0
  381. -- text alignment: 0
  382. -- font id: 3
  383. -- text size: 9
  384. -- style flags: 0
  385. -- line height: 12
  386. -- part name: Down
  387.  
  388.  
  389. -- part 88 (field)
  390. -- low flags: 80
  391. -- high flags: 0002
  392. -- rect: left=328 top=196 right=210 bottom=417
  393. -- title width / last selected line: 0
  394. -- icon id / first selected line: 0 / 0
  395. -- text alignment: 0
  396. -- font id: 3
  397. -- text size: 9
  398. -- style flags: 0
  399. -- line height: 12
  400. -- part name: CardWord
  401.  
  402.  
  403. -- part 90 (field)
  404. -- low flags: 80
  405. -- high flags: 0002
  406. -- rect: left=328 top=208 right=222 bottom=417
  407. -- title width / last selected line: 0
  408. -- icon id / first selected line: 0 / 0
  409. -- text alignment: 0
  410. -- font id: 3
  411. -- text size: 9
  412. -- style flags: 0
  413. -- line height: 12
  414. -- part name: Items
  415.  
  416.  
  417. -- part 97 (field)
  418. -- low flags: 80
  419. -- high flags: 0002
  420. -- rect: left=328 top=220 right=234 bottom=417
  421. -- title width / last selected line: 0
  422. -- icon id / first selected line: 0 / 0
  423. -- text alignment: 0
  424. -- font id: 3
  425. -- text size: 9
  426. -- style flags: 0
  427. -- line height: 12
  428. -- part name: Dropped
  429.  
  430.  
  431. -- part 87 (field)
  432. -- low flags: 01
  433. -- high flags: 0004
  434. -- rect: left=22 top=143 right=159 bottom=171
  435. -- title width / last selected line: 0
  436. -- icon id / first selected line: 0 / 0
  437. -- text alignment: 0
  438. -- font id: 216
  439. -- text size: 10
  440. -- style flags: 0
  441. -- line height: 13
  442. -- part name: Message
  443.  
  444.  
  445. -- part 78 (button)
  446. -- low flags: 00
  447. -- high flags: 0000
  448. -- rect: left=342 top=30 right=66 bottom=396
  449. -- title width / last selected line: 0
  450. -- icon id / first selected line: 26951 / 26951
  451. -- text alignment: 1
  452. -- font id: 0
  453. -- text size: 12
  454. -- style flags: 0
  455. -- line height: 16
  456. -- part name: moon
  457.  
  458.  
  459. -- part 98 (button)
  460. -- low flags: 00
  461. -- high flags: 2000
  462. -- rect: left=29 top=192 right=214 bottom=54
  463. -- title width / last selected line: 0
  464. -- icon id / first selected line: 26635 / 26635
  465. -- text alignment: 1
  466. -- font id: 0
  467. -- text size: 12
  468. -- style flags: 0
  469. -- line height: 16
  470. -- part name: 
  471. ----- HyperTalk script -----
  472. on mouseUp
  473.   push cd
  474.   visual dissolve
  475.   go cd "Help"
  476. end mouseUp
  477.  
  478.  
  479. -- part 99 (button)
  480. -- low flags: 00
  481. -- high flags: 2000
  482. -- rect: left=56 top=27 right=49 bottom=90
  483. -- title width / last selected line: 0
  484. -- icon id / first selected line: 0 / 0
  485. -- text alignment: 1
  486. -- font id: 0
  487. -- text size: 12
  488. -- style flags: 0
  489. -- line height: 16
  490. -- part name: Home
  491. ----- HyperTalk script -----
  492. on mouseUp
  493.   cleanScreen
  494.   closeBook
  495. end mouseUp
  496.